This is METAFONT, WAITS Version 0.3 (preloaded base=plain 84.9.29)  30 SEP 1984 20:52
**\mode=aps;input apsfig
(APSFIG.MF[FIG,DEK] [1] [2]
! Interruption.
<to be read again> 
                   currentpicture
draw->addto.currentpicture
                          .doublepath(EXPR0)withpen.currentpen
<to be read again> 
                   ;
<for...> ...unded..(6cm,0){angle-(EXPR0)};
                                           ENDFOR
l.21 ....bounded..(6cm,0){angle-d}; endfor
                                          
? 
! Interruption.
<for...> ...unded..(6cm,0){angle-(EXPR0)};
                                           ENDFOR
l.21 ....bounded..(6cm,0){angle-d}; endfor
                                          
? itracingstats:=2;
[3] 
Here is how much of METAFONT's memory you used:
 5 strings out of 367
 79 string characters out of 11018
 3087&27961 words of memory out of 26000&34001
 423 symbolic tokens out of 2100
 4i,43n,7p,99b stack positions out of 30i,50n,150p,500b

Font metrics written on APSFIG.TFM[FIG,DEK]
Output written on APSFIG.GF[FIG,DEK] (3 characters, 61036 bytes).